[急]basic中怎么编写计算器？

http://www.wangxvdong.cn/files/VB_Calculator.zip

一个COMMAND的控件数组10个BUTTON，就是0-9，0的INDEX是0，9的INDEX是9，这个中间的是按顺序来的，这个COMMAND的NAME是cmdNumber

一个COMMAND的控件数组4个BUTTON，就是+-*/，对应的是cmdOperator（1）
cmdOperator（2）cmdOperator（3）cmdOperator（4）

一个COMMAND的NAME：cmdPlusMinus就是正负号

一个COMMAND的NAME：cmdDecimal就是小数点

一个COMMAND的NAME：cmdClearEntry就是CE这个功能

一个COMMAND的NAME：cmdClear就是C这个功能

一个COMMAND的NAME：cmdEquals就是等于号

一个NAME为txtDisplay的TEXT。
下面是代码：
Option Explicit

Private StoredValue As Double

Private Const opNone = 0
Private Const opAdd = 1
Private Const opSubtract = 2
Private Const opMultiply = 3
Private Const opDivide = 4
Private Operator As Integer

Private NewEntry As Boolean

Private Sub DeleteCharacter()
Dim txt As Stri